Atari Mega Archive 1/Atari Mega Archive - Volume 1.iso/language/isetl.arc/primes.t

Text File | 1987-08-20 | 131b | 8 lines

program primes;
    print "Enter N:";
    read N;
    print [x: x in [2..N] | forall y in [2..x-1] | x mod y /= 0];
    end;

100;